'Animal_Simplisis

' Gene 1 Species ID and set up
cond
*.robage 0 =
start
99 .out7 store
.shoot .ploc store
.shootval .vloc store
-32000 .venval store
.paralyzed .memloc store
stop

' Gene 2 Follow food
cond
 *.eye5 0 >
*.in7 *.out7 !=
start
*.refxpos *.refypos angle .setaim store
 *.refvelup .up store
stop

' Gene 3 Find food
cond
*.eye5 0 =
*.in7 *.out7 =
or
start
157 314 rnd sub .aimdx store
10 .up store
stop

' Gene 4 Eat food
cond
 *.eye5 0 >
*.in7 *.out7 !=
start
*.refpoison 0 = *.refshell 0 > and
-1 .shoot store
not
-6 .shoot store
true
-32 .shootval store
stop

' Gene 5 Eliminate waste
cond
*.waste 50 >
start
1 .backshot store
-4 .shoot store
*.waste .shootval store
stop

' Gene 6 Reproduction
cond
*.nrg 10000 >
*.body 4000 >
*.eye5 0 =
start
25 .repro store
stop

' Gene 7 Store poison
cond
*.poison 500 <
*.nrg 500 *.poison sub 2 mult 2500 add >=
start
500 *.poison sub .strpoison store
stop

' Gene 8 Make slime
cond
*.slime 500 <
*.nrg 500 *.slime sub 2500 add >=
start
500 *.slime sub .mkslime store
stop

' Gene 9 Make shell
cond
*.shell 500 <
*.nrg 500 *.shell sub 2500 add >=
start
500 *.shell sub .mkshell store
stop

' Gene 10 Store venom
cond
*.venom 500 <
*.nrg 500 *.venom sub 2 mult 2500 add >=
start
500 *.venom sub .strvenom store
stop

' Gene 11 Shoot venom
cond
*.eye5 0 >
*.in7 *.out7 !=
*.venom 1 >=
*.robage 10 mod 0 =
start
-3 .shoot store
stop


end